tmp <- tempfile()
fs.url <- "https://data.fs.usda.gov/geodata/edw/edw_resources/shp/S_USA.AdministrativeForest.zip"
download.file(fs.url, tmp)
temp2 <- tempfile()
unzip(zipfile = tmp, exdir = temp2)
fs.bdry <- read_sf(temp2)
all(st_is_valid(fs.bdry))[1] FALSE